(exec-suffixes): Initialize to a system-dependent value.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index bb4610fa76265a3a2097e031011edd905a1000af..c4327ed61684b688f7c55b11589dad028680b7d8 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -450,6 +450,14 @@ is okay.  See `mode-line-format'.")
         ".cp" ".fn" ".ky" ".pg" ".tp" ".vr"
         ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs")))
 
+;; Suffixes used for executables.
+(setq exec-suffixes
+      (cond
+       ((memq system-type '(ms-dos windows-nt))
+       '(".exe" ".com" ".bat" ".cmd" ".btm" ""))
+       (t
+       '(""))))
+
 ;; Packages should add to this list appropriately when they are
 ;; loaded, rather than listing everything here.
 (setq debug-ignored-errors